home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  581b  |  23 lines
  1. 10 rem winput-demo
  2. 20 :
  3. 30 sys32168
  4. 40 poke53280,6 :poke53281,0 :printchr$(31)chr$(18)chr$(147)
  5. 50 :
  6. 60 rem ----- normale eingabe
  7. 70 (NULL) 5,5,"eingabe : ",a,10,12,a$
  8. 80 (NULL) 7,5,6,"ihre eingabe : "a$
  9. 90 :
  10. 100 rem ----- verwendung von "zeichen"
  11. 110 z$="jn"+chr$(133) :rem +f1
  12. 120 (NULL) 10,5,"sie koennen zwischen"
  13. 130 (NULL) 12,5,"'j', 'n' und 'f1' waehlen !"
  14. 140 (NULL) 14,5,6,"alles klar ? ",,z$,1,12,jn$
  15. 150 if ff$=chr$(133) then (NULL) 16,5," aha !, f1 gedrueckt !" :goto 170
  16. 160 (NULL) 16,5,6,"ihre eingabe : "jn$
  17. 170 :
  18. 180 rem ----- zahleneingabe
  19. 190 t=-34.234
  20. 200 (NULL) 19,5,6,"eine zahl > ",n,10,12,t
  21. 210 (NULL) 21,5,6,"ihre eingabe : "t
  22. 220 :
  23.